home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.18
/
forum
/
prtchk.p
< prev
next >
Wrap
Text File
|
1995-04-22
|
1KB
|
49 lines
program DruckerAbfrage;
{ ************************************************************
Ich weiß nicht mehr, wer danach gefragt hat, aber ich denke,
das hier interessiert auch andere:
Druckerabfrage, direkt über die CIA. Nicht ganz via System,
sollte aber auf allen Amigas ohne Probleme (!) laufen. ;)
Das Programm fragt das Register $BFD000 im CIA-B ab, in
welchem die folgenden Bits interesant sind:
7 6 5 4 3 2 1 0
- - - - - - x x
^---- Busy
^------ PaperOut
(P) 13.09.1993, Diesel
************************************************************ }
Const
PRA = $BFD000; { * Basis-Addresse CIA-B * }
Type
BytePtr = ^Byte;
Var
CIA_Byte : BytePtr;
CIA_Data : Byte;
Begin
CIA_Byte := Address(PRA);
CIA_Data := ( CIA_Byte^ ) MOD 4 ;
{ * denn nur die leztzen zwei Bits sind wichtig ! * }
Case CIA_Data of
3 : Writeln("Der Drucker ist\n- entweder aus\n- oder offline und hat kein Papier mehr.");
1 : Writeln("Der Drucker ist offline.");
2 : Writeln("Der Drucker hat kein Papier mehr.");
0 : Writeln("Der Drucker ist online.");
End;
End.